home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d4 / iq.arc / ANALOGY5.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-11-13  |  4.2 KB  |  84 lines
  1. 10  KEY OFF:KEY(10) ON:ON KEY(10) GOSUB 580:KEY(9) ON:ON KEY(9) GOSUB 410:DIM A(12):FOR I=1 TO 12:A(I)=I:NEXT I:COLOR 3,0,8
  2. 20  CLS:R=0:N=0:GOSUB 820:FOR I=1 TO 100:SWAP A(INT(RND*12+1)),A(INT(RND*12+1)):NEXT I
  3. 30  CLS:LOCATE 1,34:COLOR 0,7:PRINT"IQ Builder ":COLOR 11,0
  4. 40  LOCATE 2,34:PRINT"Analogies 5":COLOR 0,11
  5. 50  LOCATE 4,21:PRINT CHR$(201);
  6. 60  FOR J=1 TO 35
  7. 70    PRINT CHR$(205);
  8. 80    IF J > 35 GOTO 100
  9. 90    NEXT J
  10. 100  PRINT CHR$(187)
  11. 110  LOCATE 5,21:PRINT CHR$(186);:PRINT"Press <F9> to skip to next section.";
  12. 120  PRINT CHR$(186)
  13. 130  LOCATE 6,21:PRINT CHR$(186);:PRINT"Press <F10> to return to main menu.";
  14. 140  PRINT CHR$(186)
  15. 150  LOCATE 7,21:PRINT CHR$(200);
  16. 160  FOR J=1 TO 35
  17. 170    PRINT CHR$(205);
  18. 180    IF J > 35 GOTO 200
  19. 190    NEXT J
  20. 200  PRINT CHR$(188):COLOR 7,0
  21. 210  XX=1:C=A(XX):R=0:N=0
  22. 220  RESTORE:IF C>1 THEN FOR L=1 TO C-1:FOR X=1 TO 14:READ A$:NEXT X,L
  23. 230  GOSUB 780
  24. 240  READ A$,B$
  25. 250  PRINT:COLOR 0,3:PRINT"Problem" C
  26. 260  PRINT:PRINT"Which analogy below is most similar to this one:":PRINT
  27. 270  AL=LEN(A$):BL=LEN(B$):COLOR 11,0
  28. 280  PRINT "VARPTR" STRING$(AL,"SOUND") "COLOR       " "VARPTR" STRING$(BL,"SOUND") "COLOR"
  29. 290  PRINT "CALL" A$ "CALL";:COLOR 0,11:PRINT" is to ";:COLOR 11,0:PRINT "CALL" B$ "CALL";:COLOR 0,11:PRINT " as":COLOR 11,0
  30. 300  PRINT "CLS" STRING$(AL,"SOUND") "'       " "CLS" STRING$(BL,"SOUND") "'":PRINT
  31. 310  FOR X=1 TO 5:COLOR 3,8:PRINT"(";:COLOR 11,0:PRINT X;:COLOR 3,8:PRINT")  ";:READ A$,B$:PRINT A$ " is to " B$:NEXT X
  32. 320  READ K, A$
  33. 330  LOCATE 25,1:PRINT"Your choice is - ";:N=N+1:Z=Z+1
  34. 340  GOSUB 830:IF INSTR("12345",IKEY$)=0 THEN 340 ELSE A=VAL(IKEY$)
  35. 350  IF (A<>K)*(Z>1) THEN PLAY "mfn27n20t32":LOCATE 25,1:PRINT SPC(79);:LOCATE 25,1:COLOR 11,12:PRINT"No!  The answer was " K ".";:COLOR 7,0:TIMEOUT=3:GOSUB 790:LOCATE 25,1:PRINT SPC(79);:GOTO 390
  36. 360  IF (A=K)*(Z=1) THEN LOCATE 25,1:PRINT SPC(79);:LOCATE 25,1:PRINT"Correct!";:TIMEOUT=3:GOSUB 790:LOCATE 25,1:PRINT SPC(79);:R=R+1:GOTO 390
  37. 370  IF (A=K)*(Z>1) THEN LOCATE 25,1:PRINT SPC(79);:LOCATE 25,1:PRINT"Right...";:TIMEOUT=3:GOSUB 790:LOCATE 25,1:PRINT SPC(79);:R=R+0.7:GOTO 390
  38. 380  PLAY "mfn27n20t32":LOCATE 25,1:PRINT SPC(79);:LOCATE 25,1:COLOR 12,1:PRINT"No, but here is a hint:  " A$;:COLOR 7,0:TIMEOUT=3:GOSUB 790:LOCATE 25,1:PRINT SPC(79);:GOTO 330
  39. 390  XX=XX+1:Z=0
  40. 400  IF XX<12 THEN C=A(XX):GOTO 220
  41. 410  COLOR 11,4:LOCATE 1,1:PRINT SPC(33):LOCATE 1,45:PRINT SPC(35)
  42. 420  LOCATE 2,1:PRINT SPC(33):LOCATE 2,45:PRINT SPC(35)
  43. 430  LOCATE 3,1:PRINT SPC(79)
  44. 440  LOCATE 4,1:PRINT SPC(20):LOCATE 4,58:PRINT SPC(22)
  45. 450  LOCATE 5,1:PRINT SPC(20):LOCATE 5,58:PRINT SPC(22)
  46. 460  LOCATE 6,1:PRINT SPC(20):LOCATE 6,58:PRINT SPC(22)
  47. 470  LOCATE 7,1:PRINT SPC(20):LOCATE 7,58:PRINT SPC(22)
  48. 480  COLOR 11,4:GOSUB 780:COLOR 3,0:LOCATE 15,17
  49. 490  IF N<3 THEN PRINT"You didn't give me much of a chance, did you?":GOTO 560
  50. 500  PRINT"You scored" R "right out of" N "or" INT(100*R/N) "percent."
  51. 510  IF R/N<0.6 THEN LOCATE 18,21:PRINT"I'll bet you do better next time.":TIMEOUT=5:GOSUB 790:RUN
  52. 520  LOCATE 18,34:IF R/N<=0.8 THEN PRINT"Good job!":GOTO 560
  53. 530  IF R/N<=0.9 THEN PRINT"Very good!":GOTO 560
  54. 540  IF R/N<0.99 THEN PRINT"Excellent!" GOTO 560
  55. 550  COLOR 19,0:PRINT"Brilliant!"
  56. 560  COLOR 3,0:LOCATE 25,1:PRINT "Press space bar to continue.";
  57. 570  IN$=INKEY$:IF IN$="" THEN 570 ELSE 590
  58. 580  SYSTEM
  59. 590  RUN "analogy6"
  60. 600  DATA alligator, purse, crocodile, tears, sow, ears, rubber, tires, toad, wart, steer, t-bone, 5, creature into product
  61. 610  DATA benefactor, heir, donor, UGN, father, son, philanthropist, gift, Christmas, present, samaritan, widow, 1, donate vs. receive
  62. 620  DATA boom, depression, good, evil, right, left, top, bottom, upturn, downturn, private, public, 4, change of direction
  63. 630  DATA Cobb, Rose, baseball, football, Yankee, Red, Green Bay, San Francisco, Ruth, Maris, old, young, 4, held record - broke record
  64. 640  DATA crab, crustacean, bird, flight, bird, wing, man, vertebrate, frog, lizard, fish, aquatic, 3, class by skeleton
  65. 650  DATA food, starvation, insulin, coma, battle, defeat, sickness, health, indulge, abstain, pleasure, torture, 1, results of lack
  66. 660  DATA health, death, muscles, strength, birth, life, hair, bald, sickness, dying, vitamins, deficiency, 3, loss vs. effect
  67. 670  DATA lexicographer, cartographer, words, pictures, showing, telling, seeing, feeling, math, science, literature, science, 1, dictionary to maps
  68. 680  DATA Nixon, Napoleon, Watergate, Waterloo, president, war, football, soccer, elected, ejected, lawful, unlawful, 1, two downfalls
  69. 690  DATA nut, pecan, bat, ball, moon, solar system, car, Ford, walnut, pistachio, tiger, lion, 3, category vs. type
  70. 700  DATA bulldog, greyhound, truck, car, jet, airplane, dog, cat, sheep, goats, karate, track, 5, fighter to runner
  71. 710  DATA prism, triangle, wood, paper, can, bottle, base, height, can, circle, line, sphere, 4, shape within
  72. 720  '
  73. 730  '
  74. 740  '
  75. 750  '
  76. 760  '
  77. 770  '
  78. 780  FOR Y=8 TO 24:LOCATE Y,1:PRINT SPC(79);:NEXT Y:LOCATE 8,1:RETURN
  79. 790  TIMEOUT$=TIME$:TIME2=VAL(LEFT$(TIMEOUT$,2))*120+VAL(MID$(TIMEOUT$,4,2))*60+VAL(RIGHT$(TIMEOUT$,2))
  80. 800  TIMEOUT$=TIME$:TIME3=VAL(LEFT$(TIMEOUT$,2))*120+VAL(MID$(TIMEOUT$,4,2))*60+VAL(RIGHT$(TIMEOUT$,2))
  81. 810  IF TIMEOUT > TIME3 - TIME2 THEN 800 ELSE RETURN
  82. 820  RNDTIME$=TIME$:RNDVAL=VAL(LEFT$(RNDTIME$,2))*120+VAL(MID$(RNDTIME$,4,2))*60+VAL(RIGHT$(RNDTIME$,2)):RANDOMIZE RNDVAL:RETURN
  83. 830  IKEY$=INKEY$:IF IKEY$="" THEN 830 ELSE RETURN
  84.